perm filename PRINT[TEX,ALS] blob sn#600065 filedate 1981-07-15 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PROCEDURE PRINTA(P,SIZE: INTEGER)
C00004 ENDMK
CāŠ—;
PROCEDURE PRINTA(P,SIZE: INTEGER);
VAR R : INTEGER
BEGIN
PRINTLN(141); PRINTINT(P);				(* NODE *)
PRINT(137); PRINTINT(SIZE);				(* NODESIZE= *)
FOR R:=12130 TO 12160 DO BEGIN
    IF MEM[R].TWOHALVES.RHWORD = 65535 THEN BEGIN
	PRINTLN(141); PRINTINT(R);      (* NODE *)
	PRINT(352); PRINTINT(MEM[R+1].TWOHALVES.RHWORD);        (* SIZE *)
	PRINT(138); PRINTINT(MEM[R].TWOHALVES.LHWORD);          (* RLINK= *)
	PRINT(156);                                             (* -> *)
	IF (MEM[R].TWOHALVES.LHWORD)<25000 THEN BEGIN
	PRINTINT(MEM[MEM[R].TWOHALVES.LHWORD+1].TWOHALVES.LHWORD);
	PRINT(164); PRINTINT(MEM[R+1].TWOHALVES.LHWORD);        (* ... *)
	PRINT(156);                                             (* -> *)
	IF (MEM[R+1].TWOHALVES.LHWORD)<25000 THEN BEGIN
	PRINTINT(MEM[MEM[R+1].TWOHALVES.LHWORD].TWOHALVES.LHWORD);
	END;
    END;
END;